home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / DA / P / Pica Calculator 2 / PC2 Folder / PC2 Sample Pgms / PC2 Sample Pgms.rsrc / pPGM_11902_CircumscribeTriangle < prev    next >
Encoding:
Text File  |  1993-07-16  |  815 b   |  112 lines
  1. “
  2. ?Length of side a?
  3. ssideA
  4. ?Length of side b?
  5. ssideB
  6. ?Length of side c?
  7. ssideC
  8. ! *************
  9. ! solve for angleA
  10. rsideB
  11. x
  12. +
  13. rsideC
  14. x
  15. =
  16. -
  17. rsideA
  18. x
  19. =
  20. sworkVariable
  21. rsideB
  22. *
  23. rsideC
  24. *
  25. #2
  26. =
  27. ÷workVariable
  28. rworkVariable
  29. °
  30. sangleA
  31. ! 
  32. ! *************
  33. ! solve for angleB
  34. rangleA
  35. _
  36. *
  37. rsideB
  38. =
  39. /
  40. rsideA
  41. =
  42. •
  43. sangleB
  44. ! 
  45. ! *************
  46. ! solve for angleC
  47. #180
  48. -
  49. (
  50. rangleA
  51. +
  52. rangleB
  53. )
  54. =
  55. sangleC
  56. ! 
  57. ! *************
  58. ! find angleB2
  59. rangleB
  60. -
  61. (
  62. #90
  63. -
  64. rangleC
  65. )
  66. =
  67. sangleB2
  68. ! *************
  69. ! find angleC2
  70. rangleC
  71. -
  72. (
  73. #90
  74. -
  75. rangleB
  76. )
  77. =
  78. sangleC2
  79. ! *************
  80. ! find raidus & position
  81. rsideA
  82. /
  83. #2
  84. =
  85. ! save horiz move
  86. s1
  87. /
  88. rangleC2
  89. |
  90. =
  91. ! we have radius
  92. *
  93. #2
  94. =
  95. ! save diameter
  96. s0
  97. ! *************
  98. ! compute vert pos.
  99. r1
  100. *
  101. rangleC2
  102. \
  103. =
  104. s2
  105. ! *************
  106. r0
  107. @Circle diameter:
  108. r1
  109. @From vertex C; x position:
  110. r2
  111. @From vertex C; y position:
  112.